UNIVERSITY OP ILLINOIS 
DIGITAL COMPUTER LABORATORY 

new computer library routihb 13-DR11-23V 



TITLE: decimal read in 

TYPE: closed, relocatable, mnemonic 

LEfJGTH: 38 words 

TEMPORARY STORAGE : three words at fixed memory locations 0, 1, 2 

DURATION: dependent on tape read speed of 110 characters per second 

FAST REGISTERS 
CHANGED: none 

SUBROUTINES USED: none 

PARAMETERS: ML5 * link 

KlA * address of first storage location 
USE: This subroutine accepts numbers from tape in the following 

format: 

+ XX* » »X . X* * 'X yfl + X* • »X + y^ss + ,-^. * * * ± -~^ ^ 



fractional part exponent 

first number second number last number 



RULES FOR LEGAL 
INPUT: 



where x stands for a decimal digit. These numbers are 
stored in successive memory locations beginning at the 
location specified in VHk, The last number must be 
followed by a O character. 

1) All characters except decimal digits, +, -, •, ^g, 
are ignored, in particular CRLF and "space", 

2) Within an exponent (i.e., between a '~" and the second 
sign following it) all characters except decimal digits, 
+, -, O are ignored, in particular * . 

3) Every number must be preceded by a sign + or -. 
k) Every exponent must be preceded by a sign + or -. 
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EXAMPLES: 



NOTICE: 



size o? numbers: 



5) Digits before the point or after the point may be 
missing, as well as the point itself. Iff the whole 
fractional part is missing (only jgixx present) 
the number is interpreted as zero. 

6) The exponent may be missing (only f ractional part 
present). 

7) If both fractional part and exponent are missing 
(i.e., + + xx*« •) the number is interpreted as zero. 

On Tape 
1) +.1-15J5-003-1O 



(Mill-) 


+.1 


(mh) + i 


- x 5 15-3 


(mh) + 2 


-l 


(«*) 


2.998 ^+8 


(ML4) + 1 


11291 


(«*) 


-0.005 


(MLk) + 1 






ACCURACY: 



2) 42.998 j^+8 m/s LIOHT VELOCITY 
+AUGUST 1st 1291 £ 

3) - .005 + Jq + 3 & 



Don't forget to put a sign before every number. A sign 
tells the computer when a new number begins. 

Don't forget the fractional part. 10^ must be written as 
+110+3. 

More than 37 digits in the fractional part will cause OV, 
regardless of the location of the decimal point. An 
exponent whose absolute value exceeds 37 will cause OV, 
unless the fractional part is zero. Finally, any number > ^ 
will cause OV. 

Integers with at most 13 decimal digits exact. 



63 



DATE: Hbvember 14, 1963 

PROGRAMMED BY: M. Qaer, 

Jo Hievergelt 
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DEC read en 



t 



wro 

SFRt,0 
ASJKLO 



JPM3S,S,0R 



f 



2 



(zTV- ratios,© 



CAH1S,S,S 
CAM2J,0 



ss5^i — r 



STR1 S 5 



W 



SMU5,S,S 
JNH15,2,15R 





,o,m 




SBNU>,t,8l 



SBM3L5*E S 4X 
(^y e ,JZMJS jf g 8 HR 



(g)-eaDC0^,4R 

HPY 9*3,50 

ATMlSiO 
A0D9,3 S 10 





U 



gpF5zmiA« 



XCHf,3 
MP¥9jS,3JO 



read first character , 
4 - lig In M3S 



ignore If not +, S digit 

sign of 



!nH13 « * 

1 > - 



Set Initial values 

(Ml) - point not yet shown up 

Denominator (Ft) » 1 
Numerator Ase - 

read next character 
d • 10 fn MIS 

jump U digit 

d - n 

jump If *. - 

d - 41 

jump if point 

d - m 

jump ff 
d « MS 

j«*mp ?f w 

ignore all other characters 



10a + d 

(MIS combined d • M) 

jump If point not yet punched 

multiply denominator by 10 for 
every digit after point 



12 




IF 



STNH,0 
^. -rSTRU,! 
[ifr^tr JPCO,0,gR 



16 



18 



19 



-^ XCH2.S 
(Z^H— JOC0,O,4R 



CJU12,0,4R 

D6VI,S 
JZH13,8,14R 



^ - JZM1S,1,1L 



@>-*J 



$YMi4,0 

If STR14,I 
FR7,f,l 



LFRf,0 
JLH3£,0 
Q4J — »STR8 S 5,* 



p 4ZH1S,0,2L 
STK8,S,I 



L»CAM13,0 "*" 
_ CAD3S,S 

(%>--"» ASNO,0 



(G£)^ — JNM1S, 1, I3R 

SBMl5,f,f 



.1 



(Q^ — JNM15,0, 15R 
SBHlS,g,SO 



"IS" 






ATN15,0 



(Mlg) •«■ 1 when point cams up. 



end of number 

store considering sign, 

(HU) + 1 

reed new number 



end of number, 

store considering sign 



reset fast registers 



store numeretor In memory, 
considering sign 



(Mil) * next + Is Interpreted as exponent's sign 
Ace «0 " 
reed next character 
d - 10 In MIS 

jump If digit 

d * 12 

jump If *, » 

d - eg 

jump If 

Ignore all other characters 



25 



26 



88 



50 



SI 



ST 



S3 



ADDS, 3, 10 
(£)-«~JDC0,t,19R 

/ CJFH,S 



ATO^O \ 



was,*;*'" 

(§}-*- JDC0,2^19R 



• JZM15,X,1L 
ATNlt,0 






CS0171 

CJFlS,t 
mg,S,S3R 



CAD8,3,t 
JDC5,3,33ft 



r JM02,l,2l. 

ATN1§?,0 
CSHl^O 



,3,10 



CJF32,0 
f4-- JDC0,X,34R 



2 



UCADg,5 
MPV9,3,H> 



STRf,3 
CADS, 3,8 



-*O0Vg,3 
/-v STRU,1 



^jJh-JZHl3,f,l6R 
(W^) >S8AIg > 



10a 4- d 



jump If It Is sign of a new number 

(MIS) ♦ 1 

sign of exp §n MIS 



exponent In Mil, 

considering sign 



(HIS) * 1, hence In this branch (tOS) ^ 

jump If exponent - 

numerator 

jump If numerator * 

jump If exp < 

If exp > 0, change sign 

numerator x 10 If exp > 



denominator x 10 If exp < 

numerator 

denomi nator 

jump to read new number 

I exponentj •* Mil 



r— JZMXS,0,S7R 



4f 



PJHU,0 
CSHIt.O 



(VjW- JDC0,f a 18R 



consider sign of exponent 



remember: has shown up 



